home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 186
- Top = 246
- AlphaBlend = True
- AlphaBlendValue = 100
- BorderIcons = [biSystemMenu]
- BorderStyle = bsSingle
- Caption = 'Form1'
- ClientHeight = 424
- ClientWidth = 174
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clYellow
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- OldCreateOrder = True
- Position = poDesktopCenter
- Scaled = False
- OnClose = FormClose
- OnCloseQuery = FormCloseQuery
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnHide = FormHide
- OnResize = FormResize
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Image2: TImage
- Left = 144
- Top = 248
- Width = 32
- Height = 32
- AutoSize = True
- Picture.Data = {<image000.ico>}
- end
- object Image3: TImage
- Left = 144
- Top = 280
- Width = 32
- Height = 32
- AutoSize = True
- Picture.Data = {<image001.ico>}
- end
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 169
- Height = 345
- BevelInner = bvRaised
- PopupMenu = PopupMenu1
- TabOrder = 0
- OnMouseDown = Image1MouseDown
- object Image1: TImage
- Left = 2
- Top = 2
- Width = 165
- Height = 341
- Cursor = crHandPoint
- Align = alClient
- IncrementalDisplay = True
- PopupMenu = PopupMenu1
- Stretch = True
- OnMouseDown = Image1MouseDown
- end
- object led1: TIAeverLiquidIndicator
- Left = 7
- Top = 84
- Width = 44
- Height = 20
- ColorScheme = csTIAN
- SignNumber = 3
- IndicatorWidth = 44
- IndicatorHeight = 20
- InnerBevel = bkNone
- OuterBevel = bkNone
- BevelColor = clBlack
- BackColor = clBlack
- NumberForeColor = clLime
- NumberForeColor1 = clYellow
- NumberBackColor = clMaroon
- IndicatorStyle = isThin
- MouseAction = maColor
- MaterialShadowMode = msmLight
- OnMouseDown = Image1MouseDown
- end
- object led2: TIAeverLiquidIndicator
- Left = 54
- Top = 84
- Width = 57
- Height = 20
- ColorScheme = csTIAN
- SignNumber = 4
- IndicatorWidth = 57
- IndicatorHeight = 20
- InnerBevel = bkNone
- OuterBevel = bkNone
- BevelColor = clBlack
- BackColor = clBlack
- NumberForeColor = clLime
- NumberForeColor1 = clYellow
- NumberBackColor = clMaroon
- IndicatorStyle = isThin
- MouseAction = maColor
- MaterialShadowMode = msmLight
- OnMouseDown = Image1MouseDown
- end
- object led3: TIAeverLiquidIndicator
- Left = 114
- Top = 84
- Width = 30
- Height = 20
- ColorScheme = csBlack
- SignNumber = 2
- IndicatorWidth = 30
- IndicatorHeight = 20
- InnerBevel = bkNone
- OuterBevel = bkNone
- BevelColor = clGray
- BackColor = clBlack
- NumberForeColor = clLime
- NumberForeColor1 = clYellow
- NumberBackColor = clMaroon
- IndicatorStyle = isThin
- MouseAction = maColor
- MaterialShadowMode = msmLight
- OnMouseDown = Image1MouseDown
- end
- object btnExit: TButton
- Left = 127
- Top = 6
- Width = 17
- Height = 16
- Hint = 'Close Program'
- Caption = 'r'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Marlett'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 3
- OnClick = btnExitClick
- end
- object btnMinimize: TButton
- Left = 108
- Top = 6
- Width = 17
- Height = 16
- Hint = 'Minimize'
- Caption = '0'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Marlett'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 4
- OnClick = btnMinimizeClick
- end
- object Panel2: TPanel
- Left = 7
- Top = 69
- Width = 44
- Height = 13
- BevelOuter = bvNone
- Caption = 'km'
- Color = clBlack
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clYellow
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- PopupMenu = PopupMenu1
- TabOrder = 5
- OnMouseDown = Image1MouseDown
- end
- object Panel4: TPanel
- Left = 114
- Top = 69
- Width = 30
- Height = 13
- BevelOuter = bvNone
- Caption = 'cm'
- Color = clBlack
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clYellow
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- PopupMenu = PopupMenu1
- TabOrder = 6
- OnMouseDown = Image1MouseDown
- end
- object btnHelp: TButton
- Left = 89
- Top = 6
- Width = 17
- Height = 16
- Hint = 'Help'
- HelpContext = 2
- Caption = 's'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Marlett'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 7
- OnClick = btnHelpClick
- end
- object btnSetup: TButton
- Left = 8
- Top = 6
- Width = 40
- Height = 16
- Hint = 'Setup'
- Caption = 'setup'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 8
- OnClick = SetupMousotron1Click
- end
- object led4: TIAeverLiquidIndicator
- Left = 7
- Top = 124
- Width = 137
- Height = 20
- ColorScheme = csBlack
- IndicatorWidth = 137
- IndicatorHeight = 20
- InnerBevel = bkNone
- OuterBevel = bkNone
- BevelColor = clBlack
- BackColor = clBlack
- NumberForeColor = clLime
- NumberForeColor1 = clYellow
- NumberBackColor = clMaroon
- IndicatorStyle = isThin
- MouseAction = maColor
- MaterialShadowMode = msmLight
- OnMouseDown = Image1MouseDown
- end
- object pnlKeyStrokes: TPanel
- Left = 7
- Top = 109
- Width = 137
- Height = 13
- BevelOuter = bvNone
- Caption = 'keystrokes'
- Color = clBlack
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clYellow
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- PopupMenu = PopupMenu1
- TabOrder = 10
- OnMouseDown = Image1MouseDown
- end
- object btnonoff: TButton
- Left = 53
- Top = 6
- Width = 31
- Height = 16
- Hint = 'Setup'
- Caption = 'on'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 11
- OnClick = btnonoffClick
- end
- object pnlLeftBut: TPanel
- Left = 7
- Top = 149
- Width = 137
- Height = 13
- BevelOuter = bvNone
- Caption = 'left button'
- Color = clBlack
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clYellow
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- PopupMenu = PopupMenu1
- TabOrder = 12
- OnMouseDown = Image1MouseDown
- end
- object led7: TIAeverLiquidIndicator
- Left = 7
- Top = 244
- Width = 137
- Height = 20
- ColorScheme = csTIAN
- IndicatorWidth = 137
- IndicatorHeight = 20
- InnerBevel = bkNone
- OuterBevel = bkNone
- BevelColor = clBlack
- BackColor = clBlack
- NumberForeColor = clLime
- NumberForeColor1 = clYellow
- NumberBackColor = clMaroon
- IndicatorStyle = isThin
- MouseAction = maColor
- MaterialShadowMode = msmLight
- OnMouseDown = Image1MouseDown
- end
- object led8: TIAeverLiquidIndicator
- Left = 7
- Top = 284
- Width = 137
- Height = 20
- ColorScheme = csTIAN
- IndicatorWidth = 137
- IndicatorHeight = 20
- InnerBevel = bkNone
- OuterBevel = bkNone
- BevelColor = clBlack
- BackColor = clBlack
- NumberForeColor = clLime
- NumberForeColor1 = clYellow
- NumberBackColor = clMaroon
- IndicatorStyle = isThin
- MouseAction = maColor
- MaterialShadowMode = msmLight
- OnMouseDown = Image1MouseDown
- end
- object pnlMidBut: TPanel
- Left = 7
- Top = 229
- Width = 137
- Height = 13
- BevelOuter = bvNone
- Caption = 'middle button'
- Color = clBlack
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clYellow
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- PopupMenu = PopupMenu1
- TabOrder = 15
- OnMouseDown = Image1MouseDown
- end
- object pnlDBLClick: TPanel
- Left = 7
- Top = 269
- Width = 137
- Height = 13
- BevelOuter = bvNone
- Caption = 'double clicks'
- Color = clBlack
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clYellow
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- PopupMenu = PopupMenu1
- TabOrder = 16
- OnMouseDown = Image1MouseDown
- end
- object pnlRightBut: TPanel
- Left = 6
- Top = 189
- Width = 137
- Height = 13
- BevelOuter = bvNone
- Caption = 'right button'
- Color = clBlack
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clYellow
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- PopupMenu = PopupMenu1
- TabOrder = 17
- OnMouseDown = Image1MouseDown
- end
- object led6: TIAeverLiquidIndicator
- Left = 6
- Top = 204
- Width = 137
- Height = 20
- ColorScheme = csTIAN
- IndicatorWidth = 137
- IndicatorHeight = 20
- InnerBevel = bkNone
- OuterBevel = bkNone
- BevelColor = clBlack
- BackColor = clBlack
- NumberForeColor = clLime
- NumberForeColor1 = clYellow
- NumberBackColor = clMaroon
- IndicatorStyle = isThin
- MouseAction = maColor
- MaterialShadowMode = msmLight
- OnMouseDown = Image1MouseDown
- end
- object led5: TIAeverLiquidIndicator
- Left = 6
- Top = 164
- Width = 137
- Height = 20
- ColorScheme = csTIAN
- IndicatorWidth = 137
- IndicatorHeight = 20
- InnerBevel = bkNone
- OuterBevel = bkNone
- BevelColor = clBlack
- BackColor = clBlack
- NumberForeColor = clLime
- NumberForeColor1 = clYellow
- NumberBackColor = clMaroon
- IndicatorStyle = isThin
- MouseAction = maColor
- MaterialShadowMode = msmLight
- OnMouseDown = Image1MouseDown
- end
- object led9: TIAeverLiquidIndicator
- Left = 7
- Top = 44
- Width = 41
- Height = 20
- ColorScheme = csTIAN
- SignNumber = 3
- IndicatorWidth = 41
- IndicatorHeight = 20
- InnerBevel = bkNone
- OuterBevel = bkNone
- BevelColor = clBlack
- BackColor = clBlack
- NumberForeColor = clLime
- NumberForeColor1 = clYellow
- NumberBackColor = clMaroon
- IndicatorStyle = isThin
- MouseAction = maColor
- MaterialShadowMode = msmLight
- OnMouseDown = Image1MouseDown
- end
- object led10: TIAeverLiquidIndicator
- Left = 51
- Top = 44
- Width = 29
- Height = 20
- ColorScheme = csTIAN
- SignNumber = 2
- IndicatorWidth = 29
- IndicatorHeight = 20
- InnerBevel = bkNone
- OuterBevel = bkNone
- BevelColor = clBlack
- BackColor = clBlack
- NumberForeColor = clLime
- NumberForeColor1 = clYellow
- NumberBackColor = clMaroon
- IndicatorStyle = isThin
- MouseAction = maColor
- MaterialShadowMode = msmLight
- OnMouseDown = Image1MouseDown
- end
- object led12: TIAeverLiquidIndicator
- Left = 115
- Top = 44
- Width = 29
- Height = 20
- ColorScheme = csBlack
- SignNumber = 2
- IndicatorWidth = 29
- IndicatorHeight = 20
- InnerBevel = bkNone
- OuterBevel = bkNone
- BevelColor = clGray
- BackColor = clBlack
- NumberForeColor = clLime
- NumberForeColor1 = clYellow
- NumberBackColor = clMaroon
- IndicatorStyle = isThin
- MouseAction = maColor
- MaterialShadowMode = msmLight
- OnMouseDown = Image1MouseDown
- end
- object Panel7: TPanel
- Left = 54
- Top = 69
- Width = 57
- Height = 13
- BevelOuter = bvNone
- Caption = 'm'
- Color = clBlack
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clYellow
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- PopupMenu = PopupMenu1
- TabOrder = 23
- OnMouseDown = Image1MouseDown
- end
- object led11: TIAeverLiquidIndicator
- Left = 83
- Top = 44
- Width = 29
- Height = 20
- ColorScheme = csTIAN
- SignNumber = 2
- IndicatorWidth = 29
- IndicatorHeight = 20
- InnerBevel = bkNone
- OuterBevel = bkNone
- BevelColor = clBlack
- BackColor = clBlack
- NumberForeColor = clLime
- NumberForeColor1 = clYellow
- NumberBackColor = clMaroon
- IndicatorStyle = isThin
- MouseAction = maColor
- MaterialShadowMode = msmLight
- OnMouseDown = Image1MouseDown
- end
- object pnlhour: TPanel
- Left = 54
- Top = 29
- Width = 27
- Height = 13
- BevelOuter = bvNone
- Caption = 'hr'
- Color = clBlack
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clYellow
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- PopupMenu = PopupMenu1
- TabOrder = 25
- OnMouseDown = Image1MouseDown
- end
- object pnlWheel: TPanel
- Left = 7
- Top = 309
- Width = 137
- Height = 13
- BevelOuter = bvNone
- Caption = 'mouse wheel'
- Color = clBlack
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clYellow
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- PopupMenu = PopupMenu1
- TabOrder = 26
- OnMouseDown = Image1MouseDown
- end
- object led13: TIAeverLiquidIndicator
- Left = 7
- Top = 324
- Width = 137
- Height = 20
- ColorScheme = csTIAN
- IndicatorWidth = 137
- IndicatorHeight = 20
- InnerBevel = bkNone
- OuterBevel = bkNone
- BevelColor = clBlack
- BackColor = clBlack
- NumberForeColor = clLime
- NumberForeColor1 = clYellow
- NumberBackColor = clMaroon
- IndicatorStyle = isThin
- MouseAction = maColor
- MaterialShadowMode = msmLight
- OnMouseDown = Image1MouseDown
- end
- end
- object pnlmin: TPanel
- Left = 84
- Top = 29
- Width = 27
- Height = 13
- BevelOuter = bvNone
- Caption = 'min'
- Color = clBlack
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clYellow
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- PopupMenu = PopupMenu1
- TabOrder = 1
- OnMouseDown = Image1MouseDown
- end
- object pnldays: TPanel
- Left = 7
- Top = 29
- Width = 44
- Height = 13
- BevelOuter = bvNone
- Caption = 'days'
- Color = clBlack
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clYellow
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- PopupMenu = PopupMenu1
- TabOrder = 2
- OnMouseDown = Image1MouseDown
- end
- object pnlsec: TPanel
- Left = 114
- Top = 29
- Width = 30
- Height = 13
- BevelOuter = bvNone
- Caption = 'sec'
- Color = clBlack
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clYellow
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- PopupMenu = PopupMenu1
- TabOrder = 3
- OnMouseDown = Image1MouseDown
- end
- object tmrDistance: TTimer
- Interval = 75
- OnTimer = tmrDistanceTimer
- Left = 40
- Top = 392
- end
- object plasmatimer: TTimer
- Interval = 66
- OnTimer = plasmatimerTimer
- Left = 72
- Top = 360
- end
- object FormStorage1: TFormStorage
- Tag = 1
- IniFileName = 'Software'
- IniSection = 'BlackSun\Mousotron'
- MinMaxInfo.MinTrackHeight = 500
- Options = [fpPosition]
- UseRegistry = True
- Version = 1
- StoredValues = <
- item
- Name = 'MonitorSize'
- Value = 15.000000000000000000
- end
- item
- Name = 'DisplayMode'
- Value = 0
- end
- item
- Name = 'Distance'
- Value = '0'
- end
- item
- Name = 'AlwaysOnTop'
- Value = 0
- end
- item
- Name = 'KeyStrokes'
- Value = ''
- end
- item
- Name = 'LeftClicks'
- Value = ''
- end
- item
- Name = 'RightClicks'
- Value = ''
- end
- item
- Name = 'MidClicks'
- Value = ''
- end
- item
- Name = 'DblClicks'
- Value = ''
- end
- item
- Name = 'Animation'
- Value = 0
- end
- item
- Name = 'col1'
- Value = 0
- end
- item
- Name = 'col2'
- Value = 0
- end
- item
- Name = 'col3'
- Value = 0
- end
- item
- Name = 'Running'
- Value = 255
- end
- item
- Name = 'Visible'
- Value = 255
- end
- item
- Name = 'DispItems'
- Value = '111111'
- end
- item
- Name = 'Orientation'
- Value = 0
- end
- item
- Name = 'Digits'
- Value = 7
- end
- item
- Name = 'Language'
- Value = '0'
- end
- item
- Name = 'Transparent'
- Value = '0'
- end
- item
- Name = 'Time'
- Value = ''
- end
- item
- Name = 'ShowRunning'
- Value = 0
- end
- item
- Name = 'ShowHistory'
- Value = 0
- end
- item
- Name = 'ResetDate'
- Value = ''
- end
- item
- Name = 'LogDate'
- Value = ''
- end
- item
- Name = 'Measuredate'
- Value = ''
- end
- item
- Name = 'Logging'
- Value = 0
- end
- item
- Name = 'Alias'
- Value = ''
- end
- item
- Name = 'URL'
- Value = ''
- end
- item
- Name = 'Minutes'
- Value = ''
- end
- item
- Name = 'AutoSend'
- Value = 0
- end
- item
- Name = 'Comment'
- Value = ''
- end>
- Left = 8
- Top = 360
- end
- object PopupMenu1: TPopupMenu
- OnPopup = PopupMenu1Popup
- Left = 40
- Top = 360
- object HidePanel1: TMenuItem
- Caption = 'Hide Panel'
- OnClick = HidePanel1Click
- end
- object ShowMeter1: TMenuItem
- Caption = 'Show Panel'
- OnClick = ShowMeter1Click
- end
- object ResetCounter1: TMenuItem
- Caption = 'Reset Counters'
- OnClick = ResetCounter1Click
- end
- object SetupMousotron1: TMenuItem
- Caption = 'Setup Mousotron'
- OnClick = SetupMousotron1Click
- end
- object Help1: TMenuItem
- Caption = 'Help'
- OnClick = Help1Click
- end
- object Info1: TMenuItem
- Caption = 'Info'
- OnClick = Info1Click
- end
- object Exit1: TMenuItem
- Caption = 'Exit'
- OnClick = Exit1Click
- end
- end
- object tmrWriteValues: TTimer
- OnTimer = tmrWriteValuesTimer
- Left = 8
- Top = 393
- end
- object antTaskbarIcon1: TabfTrayIcon
- Icon.Data = {<image002.ico>}
- PopupMenu = PopupMenu1
- PopupByLeft = True
- Visible = True
- VisibleOnDesigning = True
- OnMouseMove = antTaskbarIcon1MouseMove
- Left = 104
- Top = 392
- end
- object abfOneInstance1: TabfOneInstance
- Left = 72
- Top = 392
- end
- object HelpRouter1: THelpRouter
- HelpType = htHTMLhelp
- ShowType = stMain
- CHMPopupTopics = 'CSHelp.txt'
- ValidateID = False
- Left = 104
- Top = 360
- end
- object Timer1: TTimer
- Enabled = False
- Interval = 300000
- OnTimer = Timer1Timer
- Left = 136
- Top = 392
- end
- end
-